inherited fmDocsReg: TfmDocsReg
  Left = 586
  Top = 200
  Width = 1056
  Height = 617
  Caption = #1061#1088#1072#1085#1080#1083#1080#1097#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1086#1074
  Constraints.MinHeight = 617
  Constraints.MinWidth = 1056
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 552
    Width = 1040
  end
  inherited Panel1: TPanel
    Width = 1040
    Visible = False
    inherited BitBtn1: TBitBtn
      Left = 878
    end
    inherited BitBtn2: TBitBtn
      Left = 966
    end
  end
  object dxBarDockControl1: TdxBarDockControl [2]
    Left = 0
    Top = 66
    Width = 1040
    Height = 26
    Align = dalTop
    BarManager = dxBarManager1
  end
  object dbgDoc: TcxGrid [3]
    Left = 0
    Top = 92
    Width = 649
    Height = 460
    Align = alLeft
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    LookAndFeel.Kind = lfStandard
    object tvDoc: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      NavigatorButtons.PriorPage.Visible = True
      NavigatorButtons.Next.Visible = True
      NavigatorButtons.Insert.Visible = True
      NavigatorButtons.Append.Visible = False
      NavigatorButtons.Edit.Visible = False
      NavigatorButtons.Post.Visible = True
      NavigatorButtons.Cancel.Visible = False
      NavigatorButtons.Refresh.Visible = False
      NavigatorButtons.SaveBookmark.Visible = False
      NavigatorButtons.GotoBookmark.Visible = False
      NavigatorButtons.Filter.Visible = False
      OnCellDblClick = tvDocCellDblClick
      DataController.DataSource = dlgDS
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Kind = skCount
          FieldName = 'SIDID'
          Column = tvDocSIDID
        end>
      DataController.Summary.SummaryGroups = <>
      OptionsBehavior.CellHints = True
      OptionsCustomize.ColumnFiltering = False
      OptionsData.CancelOnExit = False
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsView.CellEndEllipsis = True
      OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
      OptionsView.CellAutoHeight = True
      OptionsView.CellTextMaxLineCount = 1
      OptionsView.ColumnAutoWidth = True
      OptionsView.Footer = True
      OptionsView.GroupByBox = False
      OptionsView.HeaderEndEllipsis = True
      OptionsView.Indicator = True
      Preview.Visible = True
      Styles.Header = DMInv.cxSiniyText
      object tvDocSIDID: TcxGridDBColumn
        Caption = 'ID'
        DataBinding.FieldName = 'SIDID'
        Width = 73
      end
      object tvDocSIDNUM: TcxGridDBColumn
        Caption = #1053#1086#1084#1077#1088
        DataBinding.FieldName = 'SIDNUM'
        Width = 77
      end
      object tvDocSIDNOTE: TcxGridDBColumn
        Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
        DataBinding.FieldName = 'SIDNOTE'
        Width = 151
      end
      object tvDocSIDUSERENTER: TcxGridDBColumn
        Caption = #1040#1074#1090#1086#1088
        DataBinding.FieldName = 'SIDUSERENTER'
        Width = 88
      end
      object tvDocSIDTIMEENTER: TcxGridDBColumn
        Caption = #1044#1072#1090#1072' '#1089#1086#1079#1076#1072#1085#1080#1103
        DataBinding.FieldName = 'SIDTIMEENTER'
        Width = 81
      end
      object tvDocSIDUSEREDIT: TcxGridDBColumn
        Caption = #1056#1077#1076#1072#1082#1090#1086#1088
        DataBinding.FieldName = 'SIDUSEREDIT'
        Width = 103
      end
      object tvDocSIDTIMEEDIT: TcxGridDBColumn
        Caption = #1044#1072#1090#1072' '#1088#1077#1076#1072#1082#1090'.'
        DataBinding.FieldName = 'SIDTIMEEDIT'
        Width = 73
      end
      object tvDocDOC_TYPE: TcxGridDBColumn
        Caption = #1058#1080#1087
        DataBinding.FieldName = 'DOC_TYPE'
        Width = 24
      end
    end
    object cxGridLevel5: TcxGridLevel
      GridView = tvDoc
    end
  end
  object cxSplitter1: TcxSplitter [4]
    Left = 649
    Top = 92
    Width = 8
    Height = 460
    HotZoneClassName = 'TcxMediaPlayer9Style'
    Control = dbgDoc
  end
  object PdfViewer1: TPdfViewer [5]
    Left = 657
    Top = 92
    Width = 383
    Height = 460
    Align = alClient
    About = 'Synactis PDF Viewer version 1.0'
    AutoOpen = True
    Copies = 1
    EndPage = 0
    FitMode = vmFitBoxHorz
    LayoutMode = lmDontCare
    PageMode = pmStandard
    ShowPrintDialog = True
    ShowScrollBars = True
    ShowToolBar = False
    ShrinkToMargins = True
    StartPage = 1
  end
  object cxCheckBox1: TcxCheckBox [6]
    Left = 0
    Top = 45
    Align = alTop
    Caption = #1086#1090#1082#1083#1102#1095#1080#1090#1100' '#1087#1088#1086#1089#1084#1086#1090#1088
    Properties.NullStyle = nssUnchecked
    Properties.ValueChecked = 1
    Properties.ValueUnchecked = 0
    Properties.OnEditValueChanged = cxCheckBox1PropertiesEditValueChanged
    State = cbsChecked
    TabOrder = 10
    Width = 1040
  end
  inherited dlgDS: TDataSource
    DataSet = qScanDoc
    OnDataChange = dlgDSDataChange
    Top = 8
  end
  object dxBarManager1: TdxBarManager
    AllowReset = False
    AlwaysSaveText = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Segoe UI'
    Font.Style = []
    Categories.Strings = (
      'Default')
    Categories.ItemsVisibles = (
      2)
    Categories.Visibles = (
      True)
    ImageOptions.Images = DMInv.cxSmallImages
    NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
    PopupMenuLinks = <>
    UseF10ForMenu = False
    UseSystemFont = True
    Left = 320
    Top = 143
    DockControlHeights = (
      0
      0
      0
      0)
    object dxBarManager1Bar2: TdxBar
      AllowClose = False
      AllowCustomizing = False
      AllowQuickCustomizing = False
      AllowReset = False
      Caption = 'Custom 2'
      CaptionButtons = <>
      DockControl = dxBarDockControl1
      DockedDockControl = dxBarDockControl1
      DockedLeft = 0
      DockedTop = 0
      FloatLeft = 551
      FloatTop = 183
      FloatClientWidth = 51
      FloatClientHeight = 44
      ItemLinks = <
        item
          Visible = True
          ItemName = 'bbadd'
        end
        item
          Visible = True
          ItemName = 'bbedit'
        end
        item
          Visible = True
          ItemName = 'bbdel'
        end>
      NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
      OneOnRow = True
      Row = 0
      UseOwnFont = False
      UseRestSpace = True
      Visible = True
      WholeRow = False
    end
    object dxBarButton1: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 57
    end
    object dxBarButton2: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 41
    end
    object dxBarButton3: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 10
    end
    object bbnewjl: TdxBarButton
      Caption = #1053#1086#1074#1086#1077' '#1102#1088#1083#1080#1094#1086
      Category = 0
      Hint = #1053#1086#1074#1086#1077' '#1102#1088#1083#1080#1094#1086
      Visible = ivNever
      ImageIndex = 40
      PaintStyle = psCaptionGlyph
    end
    object dxBarButton4: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 54
    end
    object bbadd: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Visible = ivAlways
      ImageIndex = 57
      OnClick = bbaddClick
    end
    object bbedit: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Visible = ivAlways
      ImageIndex = 54
      OnClick = bbeditClick
    end
    object bbdel: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Visible = ivAlways
      ImageIndex = 10
      OnClick = bbdelClick
    end
    object cbShowDoc: TcxBarEditItem
      Caption = #1054#1090#1082#1083#1102#1095#1080#1090#1100' '#1087#1088#1086#1089#1084#1086#1090#1088
      Category = 0
      Hint = #1054#1090#1082#1083#1102#1095#1080#1090#1100' '#1087#1088#1086#1089#1084#1086#1090#1088
      Visible = ivAlways
      ShowCaption = True
      Width = 100
      PropertiesClassName = 'TcxCheckBoxProperties'
      Properties.Alignment = taLeftJustify
      Properties.NullStyle = nssUnchecked
      Properties.ValueChecked = 1
      Properties.ValueUnchecked = 0
      InternalEditValue = 1
    end
  end
  object qScanDoc: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    SQL.Strings = (
      'SELECT sid.*, SD.SDNAME AS doc_type'
      'FROM SCAN_INDOC SID'
      'INNER JOIN SYS_DIC SD ON SD.SDID = sid.SDID_DOCTYPE'
      'WHERE SID.SIDISDELETE IS NULL')
    UpdateObject = IBUpdateSQL1
    GeneratorField.Field = 'SIDID'
    GeneratorField.Generator = 'GEN_SCAN_INDOC_ID'
    Left = 296
    Top = 13
    object qScanDocSIDID: TIntegerField
      FieldName = 'SIDID'
      Origin = '"SCAN_INDOC"."SIDID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qScanDocSIDNOTE: TIBStringField
      FieldName = 'SIDNOTE'
      Origin = '"SCAN_INDOC"."SIDNOTE"'
      Size = 255
    end
    object qScanDocSIDUSERENTER: TIBStringField
      FieldName = 'SIDUSERENTER'
      Origin = '"SCAN_INDOC"."SIDUSERENTER"'
      Size = 40
    end
    object qScanDocSIDTIMEENTER: TDateTimeField
      FieldName = 'SIDTIMEENTER'
      Origin = '"SCAN_INDOC"."SIDTIMEENTER"'
    end
    object qScanDocSIDUSEREDIT: TIBStringField
      FieldName = 'SIDUSEREDIT'
      Origin = '"SCAN_INDOC"."SIDUSEREDIT"'
      Size = 40
    end
    object qScanDocSIDTIMEEDIT: TDateTimeField
      FieldName = 'SIDTIMEEDIT'
      Origin = '"SCAN_INDOC"."SIDTIMEEDIT"'
    end
    object qScanDocSIDISDELETE: TIntegerField
      FieldName = 'SIDISDELETE'
      Origin = '"SCAN_INDOC"."SIDISDELETE"'
    end
    object qScanDocSIDFILENAME: TIBStringField
      FieldName = 'SIDFILENAME'
      Origin = '"SCAN_INDOC"."SIDFILENAME"'
      Size = 255
    end
    object qScanDocSIDNAME: TIBStringField
      FieldName = 'SIDNAME'
      Origin = '"SCAN_INDOC"."SIDNAME"'
      Size = 255
    end
    object qScanDocSDID_DOCTYPE: TIntegerField
      FieldName = 'SDID_DOCTYPE'
      Origin = '"SCAN_INDOC"."SDID_DOCTYPE"'
    end
    object qScanDocDOC_TYPE: TIBStringField
      FieldName = 'DOC_TYPE'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
  end
  object IBUpdateSQL1: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  SIDID,'
      '  SIDNOTE,'
      '  SIDNAME,'
      '  SDID_DOCTYPE,'
      '  SIDUSERENTER,'
      '  SIDTIMEENTER,'
      '  SIDUSEREDIT,'
      '  SIDTIMEEDIT,'
      '  SIDISDELETE,'
      '  SIDFILENAME'
      'from SCAN_INDOC '
      'where'
      '  SIDID = :SIDID')
    ModifySQL.Strings = (
      'update SCAN_INDOC'
      'set'
      '  SDID_DOCTYPE = :SDID_DOCTYPE,'
      '  SIDFILENAME = :SIDFILENAME,'
      '  SIDID = :SIDID,'
      '  SIDISDELETE = :SIDISDELETE,'
      '  SIDNAME = :SIDNAME,'
      '  SIDNOTE = :SIDNOTE'
      'where'
      '  SIDID = :OLD_SIDID')
    InsertSQL.Strings = (
      'insert into SCAN_INDOC'
      
        '  (SDID_DOCTYPE, SIDFILENAME, SIDID, SIDISDELETE, SIDNAME, SIDNO' +
        'TE)'
      'values'
      
        '  (:SDID_DOCTYPE, :SIDFILENAME, :SIDID, :SIDISDELETE, :SIDNAME, ' +
        ':SIDNOTE)')
    DeleteSQL.Strings = (
      'update SCAN_INDOC'
      'set'
      '  SIDISDELETE = 1'
      'where'
      '  SIDID = :OLD_SIDID')
    Left = 336
    Top = 8
  end
end
